home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / ai.prl / opnprlg1.hqx / Open Prolog / Open Prolog.rsrc / CODE_8_errorExceptionHandler.txt < prev    next >
Text File  |  1993-04-15  |  4KB  |  82 lines
  1. # near model CODE resource
  2. # entry label at 0x0000
  3. entry:
  4. 00000000  7004                     moveq.l    D0, 0x04
  5. 00000002  7200                     moveq.l    D1, 0x00
  6. export_285:
  7. 00000004  2547 0008                move.l     [A2 + 0x8], D7
  8. 00000008  2546 0014                move.l     [A2 + 0x14], D6
  9. 0000000C  256D E956 002C           move.l     [A2 + 0x2C], [A5 - 0x16AA]
  10. 00000012  206A 0020                movea.l    A0, [A2 + 0x20]
  11. 00000016  2420                     move.l     D2, -[A0]
  12. 00000018  0802 0000                btst.b     D2, 0x0
  13. 0000001C  6722                     beq        +0x24 /* 00000040 */
  14. label0000001E:
  15. 0000001E  246D E868                movea.l    A2, [A5 - 0x1798]
  16. 00000022  206A 0020                movea.l    A0, [A2 + 0x20]
  17. 00000026  2420                     move.l     D2, -[A0]
  18. 00000028  0802 0000                btst.b     D2, 0x0
  19. 0000002C  6706                     beq        +0x8 /* 00000034 */
  20. 0000002E  2B52 E868                move.l     [A5 - 0x1798], [A2]
  21. 00000032  60EA                     bra        -0x14 /* 0000001E */
  22. label00000034:
  23. 00000034  2E2A 0008                move.l     D7, [A2 + 0x8]
  24. 00000038  2A2A 0010                move.l     D5, [A2 + 0x10]
  25. 0000003C  2C2A 0014                move.l     D6, [A2 + 0x14]
  26. label00000040:
  27. 00000040  226A 0018                movea.l    A1, [A2 + 0x18]
  28. 00000044  2409                     move.l     D2, A1
  29. 00000046  94AD E864                sub.l      D2, [A5 - 0x179C]
  30. 0000004A  6718                     beq        +0x1A /* 00000064 */
  31. 0000004C  2B49 E864                move.l     [A5 - 0x179C], A1
  32. 00000050  4482                     neg.l      D2
  33. 00000052  E48A                     lsr        D2, 2
  34. 00000054  5382                     subq.l     D2, 1
  35. 00000056  7800                     moveq.l    D4, 0x00
  36. label00000058:
  37. 00000058  2059                     movea.l    A0, [A1]+
  38. 0000005A  2104                     move.l     -[A0], D4
  39. 0000005C  2148 0004                move.l     [A0 + 0x4], A0
  40. 00000060  51CA FFF6                dbf        D2, -0xC /* 00000058 */
  41. label00000064:
  42. 00000064  B5ED E868                cmpa.l     A2, [A5 - 0x1798]
  43. 00000068  6604                     bne        +0x6 /* 0000006E */
  44. 0000006A  2B52 E868                move.l     [A5 - 0x1798], [A2]
  45. label0000006E:
  46. 0000006E  426A 0006                clr.w      [A2 + 0x6]
  47. 00000072  43EA 0030                lea.l      A1, [A2 + 0x30]
  48. 00000076  22FC 0000 0020           move.l     [A1]+, 0x20 /* ' ' */
  49. 0000007C  22C0                     move.l     [A1]+, D0
  50. 0000007E  22FC 0000 0020           move.l     [A1]+, 0x20 /* ' ' */
  51. 00000084  22C1                     move.l     [A1]+, D1
  52. 00000086  22FC 0000 0020           move.l     [A1]+, 0x20 /* ' ' */
  53. 0000008C  200A                     move.l     D0, A2
  54. 0000008E  90AD E8CC                sub.l      D0, [A5 - 0x1734]
  55. 00000092  E488                     lsr        D0, 2
  56. 00000094  22C0                     move.l     [A1]+, D0
  57. 00000096  206D F2B0                movea.l    A0, [A5 - 0xD50]
  58. 0000009A  D1ED E8A8                add.l      A0, [A5 - 0x1758]
  59. 0000009E  2410                     move.l     D2, [A0]
  60. 000000A0  D4AD E894                add.l      D2, [A5 - 0x176C]
  61. 000000A4  0682 0000 0032           addi.l     D2, 0x32 /* '2' */
  62. 000000AA  2842                     movea.l    A4, D2
  63. 000000AC  7408                     moveq.l    D2, 0x08
  64. 000000AE  2045                     movea.l    A0, D5
  65. 000000B0  20FC 0000 0044           move.l     [A0]+, 0x44 /* 'D' */
  66. 000000B6  20FC 4558 4841           move.l     [A0]+, 0x45584841 /* 'EXHA' */
  67. 000000BC  49EC 0012                lea.l      A4, [A4 + 0x12]
  68. 000000C0  4EED 0122                jmp        [A5 + 0x122]
  69. 000000C4  CB70 4E75                .incomplete
  70. 000000C8  9545                     subx.w     D2, D5
  71. 000000CA  5252                     addq.w     [A2], 1
  72. 000000CC  4F52                     chk.w      D7, [A2]
  73. 000000CE  4558                     chk.w      D2, [A0]+
  74. 000000D0  4345                     chk.w      D1, D5
  75. 000000D2  5054                     addq.w     [A4], 8
  76. 000000D4  494F                     chk.w      D4, A7
  77. 000000D6  4E48                     trap       8
  78. 000000D8  414E                     chk.w      D0, A6
  79. 000000DA  444C                     neg.w      A4
  80. 000000DC  4552                     chk.w      D2, [A2]
  81. 000000DE  0000                     .incomplete
  82.